home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _comms / comms / _riscbbs / !RiscBBS / BBS / ANSI / Tetris < prev    next >
Text File  |  1991-10-22  |  880b  |  25 lines
  1. {^report `Tetris game`}
  2. {attr 4 3}  -- Online ANSI Tetris --  {attr 0 2}  {_time}  {bg 4 cll attr 0 2}
  3. {&if ANSI=0 ~goto +noansi}{&if BAUD<2400 ~goto +badbaud}{&if LINES<24 ~goto +toosmall}
  4. Controls : {attr 4 6} Z {attr 0 2} moves figure left, {attr 4 6} X {attr 0 2} moves figure right.
  5.  
  6.            {attr 4 6} [ENTER] {attr 0 2} rotates figure, {attr 4 6} / {attr 0 2} drops figure.
  7.  
  8. {fg 3}Use CTRL-K at any time to abort the game!
  9.  
  10. {fg 1}Press <ENTER> to start game... {~label getenter @getkey 1 &if V1<>13 ~goto getenter}
  11. {^runtask `<RiscBBS$Dir>.SubTasks.!Tetris HANDLE`}
  12. {^wait @getkey 0 attr 0 7 cls ~eof}
  13. {~label noansi}
  14. I'm sorry, but to play Tetris you really need ANSI graphics...
  15.  
  16. {enter}
  17. {~eof ~label badbaud}
  18. I'm sorry, but below 2400 baud Tetris isn't playable...
  19.  
  20. {enter}
  21. {~eof ~label toosmall}
  22. I'm sorry, but you need at least 24 lines on your display...
  23.  
  24. {enter}
  25.